home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / HyperStudio Preview 2 / HyperLogo / Exploring HyperLogo / More Samples / Random Numbers / Random Numbers.rsrc / WkSp_128 < prev   
Encoding:
Text File  |  1995-05-18  |  383 b   |  25 lines
  1. MAKE "randNum 49
  2. MAKE "thePassword "HyperStudio
  3.  
  4.  
  5. TO ExecuteButton :card :itm
  6. CBSETCMD 43
  7. IF EMPTYP :card [CBSETPARAMINT 1 0] [CBSetParamInt 1 -131072 CBSetParamStr 4 :card]
  8. CBSETPARAMINT 2 0
  9. CBSETPARAMSTR 3 :itm
  10. CALLBACK
  11. END
  12.  
  13. TO goAway
  14. Wait 60
  15. EXECUTEBUTTON [] "Quit
  16. END
  17.  
  18. TO DoMenu2 :menu :item
  19. CBSETCMD 10
  20. CBSETPARAMINT 1 0
  21. CBSETPARAMSTR 3 :menu
  22. CBSETPARAMSTR 4 :item
  23. CALLBACK
  24. END
  25.